home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Tools / EasyGUI / Exemples / search2.e < prev    next >
Encoding:
Text File  |  1994-10-06  |  1012 b   |  31 lines
  1. -> rechercheun requester en EasyGUI
  2.  
  3. OPT OSVERSION=37
  4. MODULE 'tools/EasyGUI'
  5.  
  6. PROC main() HANDLE
  7.   WriteF('résultat=\d\n',easygui('Entrez le texte à Chercher/Remplacer:',
  8.     [ROWS,
  9.       [BEVEL,
  10.         [COLS,                                          -> LIGNEs
  11.           [EQROWS,
  12.             [STR,{find},'Localiser','bla',10,20],
  13.             [STR,{repl},'Remplace','burp',10,20]],
  14.           [ROWS,                                                -> COLONNEs
  15.             [CHECK,{case},'Ignore majuscule',TRUE,FALSE],
  16.             [CHECK,{word},'Mots entiers seul',FALSE,FALSE],
  17.             [CHECK,{forw},'Chercher avant',TRUE,FALSE]]]],
  18.       [EQCOLS,
  19.         [BUTTON,1,'Chercher'],
  20.         [BUTTON,2,'Remplacer'],
  21.         [BUTTON,0,'Arrêter']]]))
  22. EXCEPT
  23.   WriteF('"\s"\n',[exception,0])
  24. ENDPROC
  25.  
  26. PROC find(x,y) IS WriteF('Trouve="\s"!\n',y)
  27. PROC repl(x,y) IS WriteF('Rempl="\s"!\n',y)
  28. PROC case(x,y) IS WriteF('Majuscule=\d!\n',y)
  29. PROC word(x,y) IS WriteF('Mot=\d!\n',y)
  30. PROC forw(x,y) IS WriteF('Avant=\d!\n',y)
  31.